home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / hobbbies / orgami / balloon.bas (.txt) next >
Encoding:
GW-BASIC  |  1985-02-21  |  24.3 KB  |  1,079 lines
  1. 10  SCREEN 1:COLOR 8,0:KEY OFF:CLS
  2. 15  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 20  LOCATE 11,1:PRINT FNCEN$("BALLOON",40)
  4. 25  LOCATE 22,1:PRINT FNCEN$("(C) Copyright 1985 George Furiya",40)
  5. 30  PRINT FNCEN$("All Rights Reserved",40)
  6. 35  FOR K=1 TO 1500:NEXT K
  7. 40                             '***Zapsound***
  8. 45  FOR A=0 TO 20
  9. 50  OUT 66,A:OUT 66,A
  10. 55  OUT 97,(INP(97) OR 3)
  11. 60  NEXT A
  12. 65  SOUND 37,0
  13. 70  CLS
  14. 75  LINE(105,45)-(215,145),3,B
  15. 80  GOSUB 30000         '***Textpad***
  16. 85  PRINT FNCEN$("We start with these two folds.",40)
  17. 90  FOR K=1 TO 1500:NEXT K
  18. 95  LINE(105,45)-(215,145)
  19. 100  FOR K=1 TO 750:NEXT K
  20. 105  LINE(215,45)-(105,145)
  21. 110  FOR K=1 TO 1500:NEXT K
  22. 115  GOSUB 30000         '***Textpad***
  23. 120  PRINT FNCEN$("You've made them before.",40)
  24. 125  FOR K=1 TO 1500:NEXT K
  25. 130  GOSUB 30000         '***Textpad***
  26. 135  PRINT FNCEN$("I'll wait till you finish.",40)
  27. 140  FOR K=1 TO 1500:NEXT K
  28. 145  GOSUB 30000   '*** Textpad ***
  29. 150  PRINT FNCEN$("Press <C> to continue.",40)
  30. 155  A$=INKEY$:IF A$="" GOTO 155
  31. 160  IF A$="C" OR A$="c" GOTO 170
  32. 165  GOTO 145
  33. 170  GOSUB 30000         '***Textpad***
  34. 175  PRINT FNCEN$("And here's our third fold.",40)
  35. 180  FOR K=1 TO 1500:NEXT K
  36. 185  LINE(105,45)-(215,145),0
  37. 190  LINE(105,145)-(215,45),0
  38. 195  LINE(105,145)-(215,145),3,B
  39. 200  FOR K=1 TO 500:NEXT K
  40. 205  FOR H= 105 TO 215 STEP 2
  41. 210  PSET(H,95)
  42. 215  NEXT H
  43. 220  FOR K=1 TO 750:NEXT K
  44. 225  FOR V=45 TO 95    'TRANSDOWN
  45. 230  LINE(105,V)-(215,V),3
  46. 235  LINE(105,V)-(215,V),0
  47. 240  NEXT V
  48. 245  FOR V=95 TO 145
  49. 250  LINE(105,V)-(215,V),3
  50. 255  NEXT V         'END TRANSDOWN
  51. 260  LINE(105,145)-(160,95),0
  52. 265  LINE-(215,145),0
  53. 270  FOR K=1 TO 750:NEXT K
  54. 275  GOSUB 30000   '*** Textpad ***
  55. 280  PRINT FNCEN$("Your turn.  Press <C> to continue.",40)
  56. 285  A$=INKEY$:IF A$="" GOTO 285
  57. 290  IF A$="C" OR A$="c" GOTO 300
  58. 295  GOTO 275
  59. 300  GOSUB 30000         '***Textpad***
  60. 305  PRINT FNCEN$("The next folds are called POCKET FOLDs,",40)
  61. 310  FOR K=1 TO 1500:NEXT K
  62. 315  GOSUB 30000         '***Textpad***
  63. 320  PRINT FNCEN$("and here's why.",40)
  64. 325  FOR K=1 TO 750:NEXT K
  65. 330  LINE(105,95)-(95,140)
  66. 335  LINE-(105,140)
  67. 340  FOR K=1 TO 250:NEXT K
  68. 345  GOSUB 30000         '***Textpad***
  69. 350  PRINT FNCEN$("Lo! a pocket!",40)
  70. 355  FOR K=1 TO 750:NEXT K
  71. 360  FOR K=1 TO 15
  72. 365  PSET(85,142):DRAW"H5 D4 L7 D2 R7 D4 E5"         'ARROW RIGHT
  73. 370  PAINT(79,142)
  74. 375  FOR M=1 TO 25:NEXT M
  75. 380  CIRCLE(79,142),7,0
  76. 385  PAINT(79,142),0
  77. 390  NEXT K
  78. 395  FOR K=1 TO 750:NEXT K
  79. 400  GOSUB 30000         '***Textpad***
  80. 405  PRINT FNCEN$("Into this pocket goes this corner",40)
  81. 410  FOR K=1 TO 750:NEXT K
  82. 415  FOR K=1 TO 15
  83. 420  PSET(105,90):DRAW"E5 L4 U7 L2 D7 L4 F5"         'ARROW DOWN
  84. 425  PAINT(105,84)
  85. 430  FOR M=1 TO 25:NEXT M
  86. 435  CIRCLE(105,84),7,0
  87. 440  PAINT(105,84),0
  88. 445  NEXT K
  89. 450  FOR K=1 TO 500:NEXT K
  90. 455  GOSUB 30000         '***Textpad***
  91. 460  PRINT FNCEN$("down to this center point",40)
  92. 465  FOR K=1 TO 750:NEXT K
  93. 470  FOR K=1 TO 15
  94. 475  PSET(160,150):DRAW"G5 R4 D7 R2 U7 R4 H5"        'ARROW UP
  95. 480  PAINT(160,156)
  96. 485  FOR M=1 TO 25:NEXT M
  97. 490  CIRCLE(160,156),7,0
  98. 495  PAINT(160,156),0
  99. 500  NEXT K
  100. 505  FOR K=1 TO 500:NEXT K
  101. 510  GOSUB 30000         '***Textpad***
  102. 515  PRINT FNCEN$("THUS!",40)
  103. 520  FOR K=1 TO 750:NEXT K
  104. 525  CIRCLE(105,84),7,0
  105. 530  PAINT(105,84),0
  106. 535  CIRCLE(215,84),7,0
  107. 540  PAINT(215,85),0
  108. 545  CIRCLE(79,142),7,0
  109. 550  PAINT(79,142),0
  110. 555  CIRCLE(160,156),7,0
  111. 560  PAINT(160,156),0
  112. 565  CIRCLE(231,142),7,0
  113. 570  PAINT(231,142),0
  114. 575  LINE(215,95)-(205,140),3
  115. 580  LINE-(105,140),3
  116. 585  LINE(95,95)-(104,145),0,BF
  117. 590  FOR Q=0 TO 50
  118. 595  LINE(160,95)-(105+0.54*Q,95+0.5*Q),0
  119. 600  LINE-(105,145),0
  120. 605  LINE(160,95)-(105,95+Q),0
  121. 610  NEXT Q
  122. 615  FOR Q=0 TO 55
  123. 620  LINE(160,95)-(105+Q,145),1
  124. 625  LINE(160,95)-(105+Q,145),3
  125. 630  NEXT Q
  126. 635  LINE(160,95)-(160,145),1
  127. 640  LINE(160,95)-(100,140)
  128. 645  LINE-(110,140)
  129. 650  PAINT(110,135),3
  130. 655  PAINT(145,107),3
  131. 660  LINE(160,95)-(104,145),0
  132. 665  GOSUB 30000         '***Textpad***
  133. 670  PRINT FNCEN$("and repeat on the other side.",40)
  134. 675  FOR K=1 TO 1500:NEXT K
  135. 680  FOR Q=0 TO 50
  136. 685  LINE(160,95)-(215-0.54*Q,95+0.5*Q),0
  137. 690  LINE-(215,145),0
  138. 695  LINE(160,95)-(215,95+Q),0
  139. 700  NEXT Q
  140. 705  FOR Q=0 TO 55
  141. 710  LINE(160,95)-(215-Q,145),1
  142. 715  LINE(160,95)-(215-Q,145),3
  143. 720  NEXT Q
  144. 725  LINE(160,95)-(160,145),1
  145. 730  LINE(160,95)-(220,140)
  146. 735  LINE-(200,140)
  147. 740  PAINT(203,130),3
  148. 745  LINE(160,95)-(216,145),0
  149. 750  GOSUB 30000         '***Textpad***
  150. 755  PRINT FNCEN$("Would you like to see those folds again?",40)
  151. 760  FOR K=1 TO 1500:NEXT K
  152. 765  GOSUB 30000       '*** Textpad ***
  153. 770  PRINT FNCEN$("If so, press <R>.",40)
  154. 775  FOR K=1 TO 1000:NEXT K
  155. 780  PRINT FNCEN$("If not, press <C> to continue.",40)
  156. 785  A$=INKEY$:IF A$="" GOTO 785
  157. 790  IF A$="r" OR A$="R" GOTO 805
  158. 795  IF A$="c" OR A$="C" GOTO 875
  159. 800  GOTO 765
  160. 805  GOSUB 30000   '** Textpad **
  161. 810  PRINT FNCEN$("* Review *",40)
  162. 815  FOR K=1 TO 1500:NEXT K
  163. 820  FOR A=0 TO 20
  164. 825  OUT 66,A:OUT 66,A
  165. 830  OUT 97,(INP(97) OR 3)
  166. 835  NEXT A
  167. 840  SOUND 37,0
  168. 845  CLS
  169. 850  LINE(105,95)-(215,145),3,BF
  170. 855  LINE(105,145)-(160,95),0
  171. 860  LINE-(215,145),0
  172. 865  FOR K=1 TO 750:NEXT K
  173. 870  GOTO 300
  174. 875  GOSUB 30000   '** Textpad **
  175. 880  PRINT FNCEN$("One moment, please,",40)
  176. 885  FOR K=1 TO 750:NEXT K
  177. 890  PRINT FNCEN$("while I change scale.",40)
  178. 895  FOR K=1 TO 1500:NEXT K
  179. 900  FOR A=0 TO 20
  180. 905  OUT 66,A:OUT 66,A
  181. 910  OUT 97,(INP(97) OR 3)
  182. 915  NEXT A
  183. 920  SOUND 37,0
  184. 925  CLS
  185. 930  LINE(160,45)-(45,140)
  186. 935  LINE-(55,140)
  187. 940  LINE-(50,145)
  188. 945  LINE-(270,145)
  189. 950  LINE-(265,140)
  190. 955  LINE-(275,140)
  191. 960  LINE-(160,45)
  192. 965  PAINT(160,100),3
  193. 970  LINE(160,45)-(49,145),0
  194. 975  LINE(160,45)-(271,145),0
  195. 980  LINE(160,45)-(160,145),1
  196. 985  FOR K=1 TO 500:NEXT K
  197. 990  GOSUB 30000         '***Textpad***
  198. 995  PRINT FNCEN$("There!  That's better!",40)
  199. 1000  FOR K=1 TO 1500:NEXT K
  200. 1005  GOSUB 30000         '***Textpad***
  201. 1010  PRINT FNCEN$("Now, I'll wait for your POCKET FOLDs.",40)
  202. 1015  FOR K=1 TO 1500:NEXT K
  203. 1020  GOSUB 30000         '***Textpad***
  204. 1025  PRINT FNCEN$("Press <C> to continue.",40)
  205. 1030  A$=INKEY$:IF A$="" GOTO 1030
  206. 1035  IF A$="C" OR A$="c" GOTO 1045
  207. 1040  GOTO 1020
  208. 1045  GOSUB 30000         '***Textpad***
  209. 1050  FOR H=0 TO 10
  210. 1055  LINE(160,45)-(45+H,140),0
  211. 1060  LINE(160,45)-(275-H,140),0
  212. 1065  NEXT H
  213. 1070  LINE(50,145)-(160,45),3
  214. 1075  LINE-(270,145),3
  215. 1080  GOSUB 30000         '***Textpad***
  216. 1085  PRINT FNCEN$("We next take these corners",40)
  217. 1090  FOR K=1 TO 750:NEXT K
  218. 1095  FOR K=1 TO 15
  219. 1100  PSET(50,150):DRAW"G5R4D7R2U7R4H5"
  220. 1105  PAINT(50,156)
  221. 1110  PSET(270,150):DRAW"G5R4D7R2U7R4H5"
  222. 1115  PAINT(270,156)
  223. 1120  CIRCLE(50,156),7,0
  224. 1125  PAINT(50,156),0
  225. 1130  CIRCLE(270,156),7,0
  226. 1135  PAINT(270,156),0
  227. 1140  NEXT K
  228. 1145  FOR K=1 TO 500:NEXT K
  229. 1150  GOSUB 30000         '***Textpad***
  230. 1155  PRINT FNCEN$("up to here",40)
  231. 1160  FOR K=1 TO 750:NEXT K
  232. 1165                              '*** arrow down ***
  233. 1170  FOR K=1 TO 15
  234. 1175  PSET(160,40):DRAW"E5L4U7L2D7L4F5"
  235. 1180  PAINT(160,34)
  236. 1185  FOR M=1 TO 25:NEXT M
  237. 1190  CIRCLE(160,34),7,0
  238. 1195  PAINT(160,34),0
  239. 1200  NEXT K
  240. 1205                              '***end arrow down ***
  241. 1210  FOR K=1 TO 500:NEXT K
  242. 1215  GOSUB 30000         '***Textpad***
  243. 1220  PRINT FNCEN$("across these lines",40)
  244. 1225  FOR K=1 TO 750:NEXT K
  245. 1230  LINE(105,95)-(160,145),0
  246. 1235  LINE(215,95)-(160,145),0
  247. 1240  FOR K=1 TO 750:NEXT K
  248. 1245  GOSUB 30000         '***Textpad***
  249. 1250  PRINT FNCEN$("THUS!",40)
  250. 1255  FOR K=1 TO 750:NEXT K
  251. 1260  FOR Q=0 TO 55        'FOLD LEFT
  252. 1265  LINE(160,145)-(50+Q,145-0.909*Q),0
  253. 1270  LINE(160,145)-(50+Q,145-0.909*Q),3
  254. 1275  NEXT Q
  255. 1280  LINE(160,145)-(105,95),0
  256. 1285  FOR Q=1 TO 55        'NEXT LEFT
  257. 1290  LINE(160,145)-(105+Q,96-0.909*Q),0
  258. 1295  LINE(160,145)-(105+Q,96-0.909*Q),3
  259. 1300  LINE(160,145)-(105,95),0
  260. 1305  NEXT Q             'END LEFT
  261. 1310  LINE(160,145)-(105,95),0
  262. 1315  LINE(160,45)-(160,145),0
  263. 1320  GOSUB 30000         '***Textpad***
  264. 1325  PRINT FNCEN$("and repeat on the other side.",40)
  265. 1330  FOR K=1 TO 750:NEXT K
  266. 1335  LINE(215,95)-(160,145),0
  267. 1340  FOR K=1 TO 750:NEXT K
  268. 1345  FOR Q=0 TO 55      'FOLD RIGHT
  269. 1350  LINE(160,145)-(270-Q,145-0.909*Q),0
  270. 1355  LINE(160,145)-(270-Q,145-0.909*Q),3
  271. 1360  NEXT Q
  272. 1365  LINE(160,145)-(215,95),0
  273. 1370  LINE(160,45)-(160,145),0
  274. 1375  FOR Q=1 TO 55      'NEXT FOLD RIGHT
  275. 1380  LINE(160,145)-(215-Q,96-0.909*Q),0
  276. 1385  LINE(160,145)-(215-Q,96-0.909*Q),3
  277. 1390  LINE(160,145)-(215,95),0
  278. 1395  NEXT Q             'END RIGHT
  279. 1400  LINE(215,95)-(160,145),0
  280. 1405  LINE(160,145)-(215,95),0
  281. 1410  LINE(160,45)-(160,145),0
  282. 1415  GOSUB 30000       '*** Textpad ***
  283. 1420  PRINT FNCEN$("To review those folds, press <R>.",40)
  284. 1425  FOR K=1 TO 1000:NEXT K
  285. 1430  PRINT FNCEN$("To continue, press <C>.",40)
  286. 1435  A$=INKEY$:IF A$="" GOTO 1435
  287. 1440  IF A$="r" OR A$="R" GOTO 1455
  288. 1445  IF A$="c" OR A$="C" GOTO 1520
  289. 1450  GOTO 1415
  290. 1455  GOSUB 30000   '** Textpad **
  291. 1460  PRINT FNCEN$("* Review *",40)
  292. 1465  FOR K=1 TO 1500:NEXT K
  293. 1470  FOR A=0 TO 20
  294. 1475  OUT 66,A:OUT 66,A
  295. 1480  OUT 97,(INP(97) OR 3)
  296. 1485  NEXT A
  297. 1490  SOUND 37,0
  298. 1495  LINE(105,95)-(160,145)
  299. 1500  LINE-(215,95)
  300. 1505  LINE(160,45)-(160,145),1
  301. 1510  FOR K=1 TO 750:NEXT K
  302. 1515  GOTO 1080
  303. 1520  GOSUB 30000   '** Textpad **
  304. 1525  PRINT FNCEN$("Our next folds are to the hidden side.",40)
  305. 1530  FOR K=1 TO 1500:NEXT K
  306. 1535  FOR Q=0 TO 55        'FOLD LEFT
  307. 1540  LINE(160,145)-(50+Q,145-0.909*Q),0
  308. 1545  LINE(160,145)-(50+Q,146-0.909*Q),0
  309. 1550  NEXT Q
  310. 1555  LINE(160,145)-(105,95),0
  311. 1560  FOR Q=1 TO 55        'NEXT LEFT
  312. 1565  LINE(160,145)-(105+Q,96-0.909*Q),1
  313. 1570  LINE(160,145)-(105+Q,96-0.909*Q),3
  314. 1575  NEXT Q             'END LEFT
  315. 1580  LINE(160,45)-(160,145),0
  316. 1585  FOR K=1 TO 750:NEXT K
  317. 1590  FOR Q=0 TO 55      'FOLD RIGHT
  318. 1595  LINE(160,145)-(270-Q,145-0.909*Q),0
  319. 1600  LINE(160,145)-(270-Q,146-0.909*Q),0
  320. 1605  NEXT Q
  321. 1610  FOR Q=1 TO 55      'NEXT FOLD RIGHT
  322. 1615  LINE(160,145)-(215-Q,96-0.909*Q),1
  323. 1620  LINE(160,145)-(215-Q,96-0.909*Q),3
  324. 1625  NEXT Q             'END RIGHT
  325. 1630  LINE(160,45)-(160,145),0
  326. 1635  FOR K=1 TO 750:NEXT K
  327. 1640  GOSUB 30000   '*** Textpad ***
  328. 1645  PRINT FNCEN$("Press <C> to continue.",40)
  329. 1650  A$=INKEY$:IF A$="" GOTO 1650
  330. 1655  IF A$="C" OR A$="c" GOTO 1665
  331. 1660  GOTO 1640
  332. 1665  GOSUB 30000         '***Textpad***
  333. 1670  PRINT FNCEN$("Next, we fold these corners",40)
  334. 1675  FOR K=1 TO 750:NEXT K
  335. 1680  LINE(105,95)-(110,100)
  336. 1685  LINE(110,90)-(110,100),0
  337. 1690  LINE-(115,95),0
  338. 1695  LINE-(110,90),0
  339. 1700  LINE(215,95)-(210,100)
  340. 1705  LINE(210,90)-(210,100),0
  341. 1710  LINE-(205,95),0
  342. 1715  LINE-(210,90),0
  343. 1720  FOR K=1 TO 750:NEXT K
  344. 1725  FOR K=1 TO 15
  345. 1730  PSET(222,95):DRAW"E5D4R7D2L7D4H5"
  346. 1735  PAINT(228,95)
  347. 1740  PSET(98,95):DRAW"H5D4L7D2R7D4E5"
  348. 1745  PAINT(92,95)
  349. 1750  CIRCLE(228,95),7,0
  350. 1755  PAINT(228,95),0
  351. 1760  CIRCLE(92,95),7,0
  352. 1765  PAINT(92,95),0
  353. 1770  NEXT K
  354. 1775  FOR K=1 TO 750:NEXT K
  355. 1780  LINE(110,90)-(110,100)
  356. 1785  LINE-(115,95)
  357. 1790  LINE-(110,90)
  358. 1795  LINE(105,95)-(110,100),0
  359. 1800  LINE(210,90)-(210,100)
  360. 1805  LINE-(205,95)
  361. 1810  LINE-(210,90)
  362. 1815  LINE(215,95)-(210,100),0
  363. 1820  GOSUB 30000         '***Textpad***
  364. 1825  PRINT FNCEN$("over to this point",40)
  365. 1830  FOR K=1 TO 750:NEXT K
  366. 1835                                '*** flashdot ***
  367. 1840  'down to this point
  368. 1845  '
  369. 1850  FOR K=1 TO 15
  370. 1855  CIRCLE(160,95),5,3
  371. 1860  LINE(158,95)-(162,95),0
  372. 1865  LINE(160,93)-(160,97),0
  373. 1870  FOR M=1 TO 25:NEXT M
  374. 1875  CIRCLE(160,95),5,0
  375. 1880  LINE(158,95)-(162,95),3
  376. 1885  LINE(160,93)-(160,97),3
  377. 1890  NEXT K
  378. 1895  CIRCLE(160,95),5,3
  379. 1900  PSET(160,95),3
  380. 1905                              '*** end flashdot ***
  381. 1910  LINE(160,85)-(160,105),0
  382. 1915  FOR K=1 TO 750:NEXT K
  383. 1920  GOSUB 30000         '***Textpad***
  384. 1925  PRINT FNCEN$("over these lines,",40)
  385. 1930  FOR K=1 TO 750:NEXT K
  386. 1935  FOR V=70 TO 120 STEP 2
  387. 1940  PSET(133,V),0
  388. 1945  NEXT V
  389. 1950  FOR V=70 TO 120 STEP 2
  390. 1955  PSET(187,V),0
  391. 1960  NEXT V
  392. 1965  FOR K=1 TO 750:NEXT K
  393. 1970  GOSUB 30000         '***Textpad***
  394. 1975  PRINT FNCEN$("THUS!",40)
  395. 1980  FOR K=1 TO 750:NEXT K
  396. 1985  LINE(110,100)-(132,120)
  397. 1990  FOR H=105 TO 133       'FOLD LEFT
  398. 1995  LINE(133,70)-(H,95),0
  399. 2000  LINE-(133,120),0
  400. 2005  LINE(133,70)-(H,95),3
  401. 2010  LINE-(133,120),3
  402. 2015  FOR M=1 TO 25:NEXT M
  403. 2020  NEXT H
  404. 2025  LINE(133,70)-(133,120),0
  405. 2030  FOR H=146 TO 160
  406. 2035  LINE(133,70)-(H,95),0
  407. 2040  LINE-(133,120),0
  408. 2045  LINE(133,70)-(H,95),3
  409. 2050  LINE-(133,120),3
  410. 2055  FOR M=1 TO 25:NEXT M
  411. 2060  NEXT H
  412. 2065  LINE(133,70)-(160,95),0
  413. 2070  LINE-(133,120),0
  414. 2075  FOR K=1 TO 750:NEXT K
  415. 2080  GOSUB 30000         '***Textpad***
  416. 2085  PRINT FNCEN$("and repeat on the other side.",40)
  417. 2090  FOR K=1 TO 750:NEXT K
  418. 2095  LINE(210,100)-(188,120)
  419. 2100  FOR H=215 TO 187 STEP -1 'FOLD RT
  420. 2105  LINE(187,70)-(H,95),0
  421. 2110  LINE-(187,120),0
  422. 2115  LINE(187,70)-(H,95),3
  423. 2120  LINE-(187,120),3
  424. 2125  FOR M=1 TO 25:NEXT M
  425. 2130  NEXT H
  426. 2135  LINE(187,70)-(187,120),0
  427. 2140  FOR H=174 TO 160 STEP -1
  428. 2145  LINE(187,70)-(H,95),0
  429. 2150  LINE-(187,120),0
  430. 2155  LINE(187,70)-(H,95),3
  431. 2160  LINE-(187,120),3
  432. 2165  FOR M=1 TO 25:NEXT M
  433. 2170  NEXT H
  434. 2175  LINE(187,70)-(160,95),0
  435. 2180  LINE-(187,120),0
  436. 2185  FOR K=1 TO 750:NEXT K
  437. 2190  GOSUB 30000       '*** Textpad ***
  438. 2195  PRINT FNCEN$("To see those folds again, press <R>.",40)
  439. 2200  FOR K=1 TO 1000:NEXT K
  440. 2205  PRINT FNCEN$("To continue, press <C>.",40)
  441. 2210  A$=INKEY$:IF A$="" GOTO 2210
  442. 2215  IF A$="r" OR A$="R" GOTO 2230
  443. 2220  IF A$="c" OR A$="C" GOTO 2315
  444. 2225  GOTO 2190
  445. 2230  GOSUB 30000   '** Textpad **
  446. 2235  PRINT FNCEN$("* Review *",40)
  447. 2240  FOR K=1 TO 250:NEXT K
  448. 2245  FOR A=0 TO 20
  449. 2250  OUT 66,A:OUT 66,A
  450. 2255  OUT 97,(INP(97) OR 3)
  451. 2260  NEXT A
  452. 2265  SOUND 37,0
  453. 2270  LINE(133,70)-(187,120)
  454. 2275  LINE-(187,70)
  455. 2280  LINE-(133,120)
  456. 2285  LINE-(133,70)
  457. 2290  LINE(160,45)-(160,145),0
  458. 2295  LINE(105,95)-(160,145)
  459. 2300  LINE-(215,95)
  460. 2305  FOR K=1 TO 750:NEXT K
  461. 2310  GOTO 1665
  462. 2315  GOSUB 30000         '***Textpad***
  463. 2320  PRINT FNCEN$("We repeat for the hidden side.",40)
  464. 2325  FOR K=1 TO 750:NEXT K
  465. 2330  LINE(132,70)-(110,90),0
  466. 2335  LINE(110,100)-(132,120),0
  467. 2340  FOR H=105 TO 133       'FOLD LEFT
  468. 2345  LINE(133,70)-(H,95),0
  469. 2350  LINE-(133,120),0
  470. 2355  FOR M=1 TO 25:NEXT M
  471. 2360  NEXT H
  472. 2365  LINE(133,70)-(133,120),0
  473. 2370  FOR H=146 TO 160
  474. 2375  LINE(133,70)-(H,95),1
  475. 2380  LINE-(133,120),1
  476. 2385  LINE(133,70)-(H,95),3
  477. 2390  LINE-(133,120),3
  478. 2395  FOR M=1 TO 25:NEXT M
  479. 2400  NEXT H
  480. 2405  LINE(133,70)-(160,95),0
  481. 2410  LINE-(133,120),0
  482. 2415  FOR K=1 TO 750:NEXT K
  483. 2420  FOR K=1 TO 750:NEXT K
  484. 2425  LINE(188,70)-(210,90),0
  485. 2430  LINE(210,100)-(188,120),0
  486. 2435  FOR H=215 TO 187 STEP -1 'FOLD RT
  487. 2440  LINE(187,70)-(H,95),0
  488. 2445  LINE-(187,120),0
  489. 2450  FOR M=1 TO 25:NEXT M
  490. 2455  NEXT H
  491. 2460  LINE(187,70)-(187,120),0
  492. 2465  FOR H=174 TO 160 STEP -1
  493. 2470  LINE(187,70)-(H,95),1
  494. 2475  LINE-(187,120),1
  495. 2480  LINE(187,70)-(H,95),3
  496. 2485  LINE-(187,120),3
  497. 2490  FOR M=1 TO 25:NEXT M
  498. 2495  NEXT H
  499. 2500  LINE(187,70)-(160,95),0
  500. 2505  LINE-(187,120),0
  501. 2510  GOSUB 30000   '*** Textpad ***
  502. 2515  PRINT FNCEN$("Press <C> to continue.",40)
  503. 2520  A$=INKEY$:IF A$="" GOTO 2520
  504. 2525  IF A$="C" OR A$="c" GOTO 2535
  505. 2530  GOTO 2510
  506. 2535  GOSUB 30000         '***Textpad***
  507. 2540  PRINT FNCEN$("Next, these two corners",40)
  508. 2545  FOR K=1 TO 750:NEXT K
  509. 2550                              '*** arrow down ***
  510. 2555  FOR K=1 TO 15
  511. 2560  PSET(160,40):DRAW"E5L4U7L2D7L4F5"
  512. 2565  PAINT(160,34)
  513. 2570  FOR M=1 TO 25:NEXT M
  514. 2575  CIRCLE(160,34),7,0
  515. 2580  PAINT(160,34),0
  516. 2585  NEXT K
  517. 2590                              '***end arrow down ***
  518. 2595  LINE(160,55)-(165,50),0
  519. 2600  LINE-(165,55),0
  520. 2605  LINE-(160,55),0
  521. 2610  FOR K=1 TO 250:NEXT K
  522. 2615  LINE(160,55)-(155,50),0
  523. 2620  LINE-(155,55),0
  524. 2625  LINE-(160,55),0
  525. 2630  FOR K=1 TO 750:NEXT K
  526. 2635  GOSUB 30000         '***Textpad***
  527. 2640  PRINT FNCEN$("fold down to this point",40)
  528. 2645  FOR K=1 TO 750:NEXT K
  529. 2650                                '*** flashdot ***
  530. 2655  FOR K=1 TO 15
  531. 2660  CIRCLE(160,95),5,0
  532. 2665  LINE(158,95)-(162,95),0
  533. 2670  LINE(160,93)-(160,97),0
  534. 2675  FOR M=1 TO 25:NEXT M
  535. 2680  CIRCLE(160,95),5,3
  536. 2685  LINE(158,95)-(162,95),3
  537. 2690  LINE(160,93)-(160,97),3
  538. 2695  NEXT K
  539. 2700  CIRCLE(160,95),5,3
  540. 2705  PSET(160,95),3
  541. 2710                              '*** end flashdot ***
  542. 2715  LINE(133,70)-(160,95),0
  543. 2720  LINE-(133,120),0
  544. 2725  LINE(187,70)-(160,95),0
  545. 2730  LINE-(187,120),0
  546. 2735  LINE(160,90)-(160,110),0
  547. 2740  FOR K=1 TO 250:NEXT K
  548. 2745  GOSUB 30000         '***Textpad***
  549. 2750  PRINT FNCEN$("over this line",40)
  550. 2755  FOR K=1 TO 750:NEXT K
  551. 2760  FOR H=133 TO 187 STEP 2
  552. 2765  PSET(H,70),0
  553. 2770  NEXT H
  554. 2775  FOR K=1 TO 250:NEXT K
  555. 2780  GOSUB 30000         '***Textpad***
  556. 2785  PRINT FNCEN$("SO!",40)
  557. 2790  FOR K=1 TO 750:NEXT K
  558. 2795  LINE(160,55)-(165,50),3
  559. 2800  LINE-(165,55),3
  560. 2805  LINE-(160,55),3
  561. 2810  LINE(160,55)-(155,50),3
  562. 2815  LINE-(155,55),3
  563. 2820  LINE-(160,55),3
  564. 2825  PSET(160,55),0
  565. 2830  FOR V=46 TO 70 'right flap
  566. 2835  LINE(161,V)-(186,70),0
  567. 2840  LINE(161,V+1)-(186,70),0
  568. 2845  LINE(161,V)-(186,70),3
  569. 2850  FOR M=1 TO 75:NEXT M
  570. 2855  NEXT V
  571. 2860  FOR V=75 TO 94
  572. 2865  LINE(161,V)-(186,70),0
  573. 2870  LINE(161,V+1)-(186,70),0
  574. 2875  LINE(161,V)-(186,70),3
  575. 2880  LINE(161,71)-(180,71),3
  576. 2885  LINE(187,70)-(160,70),0
  577. 2890  FOR M=1 TO 75:NEXT M
  578. 2895  NEXT V         'end right flap
  579. 2900  LINE(187,70)-(160,70),0
  580. 2905  LINE(161,81)-(170,95),3,BF
  581. 2910  LINE(187,70)-(160,95),0
  582. 2915  FOR V=46 TO 70 'left flap
  583. 2920  LINE(160,V)-(134,70),0
  584. 2925  LINE(160,V+1)-(134,70),0
  585. 2930  LINE(160,V)-(134,70),3
  586. 2935  FOR M=1 TO 75:NEXT M
  587. 2940  NEXT V
  588. 2945  FOR V=75 TO 94
  589. 2950  LINE(159,V)-(134,70),0
  590. 2955  LINE(159,V+1)-(134,70),0
  591. 2960  LINE(159,V)-(134,70),3
  592. 2965  LINE(140,71)-(159,71),3
  593. 2970  LINE(133,70)-(160,70),0
  594. 2975  FOR M=1 TO 75:NEXT M
  595. 2980  NEXT V         'end left flap
  596. 2985  LINE(133,70)-(160,70),0
  597. 2990  LINE(150,81)-(159,95),3,BF
  598. 2995  LINE(133,70)-(160,95),0
  599. 3000  GOSUB 30000       '*** Textpad ***
  600. 3005  PRINT FNCEN$("To see those folds again, press <R>.",40)
  601. 3010  FOR K=1 TO 1000:NEXT K
  602. 3015  PRINT FNCEN$("To continue, press <C>.",40)
  603. 3020  A$=INKEY$:IF A$="" GOTO 3020
  604. 3025  IF A$="r" OR A$="R" GOTO 3040
  605. 3030  IF A$="c" OR A$="C" GOTO 3095
  606. 3035  GOTO 3000
  607. 3040  GOSUB 30000   '** Textpad **
  608. 3045  PRINT FNCEN$("* Review *",40)
  609. 3050  FOR K=1 TO 250:NEXT K
  610. 3055  FOR A=0 TO 20
  611. 3060  OUT 66,A:OUT 66,A
  612. 3065  OUT 97,(INP(97) OR 3)
  613. 3070  NEXT A
  614. 3075  SOUND 37,0
  615. 3080  LINE(133,70)-(187,70)
  616. 3085  LINE(160,45)-(160,70),0
  617. 3090  GOTO 2535
  618. 3095  GOSUB 30000       '*** Textpad ***
  619. 3100  PRINT FNCEN$("The next folds require nimble fingers",40)
  620. 3105  FOR K=1 TO 1500:NEXT K
  621. 3110  GOSUB 30000       '*** Textpad ***
  622. 3115  PRINT FNCEN$("and a bit of patience.",40)
  623. 3120  FOR K=1 TO 1500:NEXT K
  624. 3125  GOSUB 30000       '*** Textpad ***
  625. 3130  PRINT FNCEN$("These flaps",40)
  626. 3135  FOR K=1 TO 750:NEXT K
  627. 3140  LINE(161,70)-(164,70),3
  628. 3145  LINE(165,70)-(160,75),0
  629. 3150  LINE-(165,75),0
  630. 3155  LINE-(165,70),0
  631. 3160  FOR K=1 TO 1000:NEXT K
  632. 3165  LINE(165,70)-(160,75),3
  633. 3170  LINE-(165,75),3
  634. 3175  LINE-(165,70),3
  635. 3180  LINE(160,70)-(160,95),0
  636. 3185  LINE(160,70)-(165,70),0
  637. 3190  LINE(159,70)-(155,70),3
  638. 3195  LINE(155,70)-(160,75),0
  639. 3200  LINE-(155,75),0
  640. 3205  LINE-(155,70),0
  641. 3210  FOR K=1 TO 1000:NEXT K
  642. 3215  LINE(155,70)-(160,75),3
  643. 3220  LINE-(155,75),3
  644. 3225  LINE-(155,70),3
  645. 3230  LINE(159,70)-(155,70),0
  646. 3235  LINE(160,70)-(160,95),0
  647. 3240  FOR K=1 TO 250:NEXT K
  648. 3245  PRINT FNCEN$("get tucked into these pockets,",40)
  649. 3250  FOR K=1 TO 1500:NEXT K
  650. 3255  LINE(187,70)-(160,95),3
  651. 3260  LINE (186,69)-(160,95)
  652. 3265  LINE(187,70)-(170,82),0 'rt pocket
  653. 3270  LINE-(160,95),0
  654. 3275  LINE-(174,85),0
  655. 3280  LINE-(187,70),0
  656. 3285  LINE(133,70)-(160,95),3 'eraseln
  657. 3290  LINE(134,69)-(160,95)
  658. 3295  LINE(133,70)-(150,82),0 'lftpock
  659. 3300  LINE-(160,95),0
  660. 3305  LINE-(146,85),0
  661. 3310  LINE-(133,70),0
  662. 3315  FOR K=1 TO 1500:NEXT K
  663. 3320  GOSUB 30000       '*** Textpad ***
  664. 3325  PRINT FNCEN$("SO!",40)
  665. 3330  FOR K=1 TO 750:NEXT K
  666. 3335  FOR Q=0 TO 13
  667. 3340  LINE(187,70)-(161+Q,70+Q),0
  668. 3345  LINE-(161,95),0
  669. 3350  LINE(187,70)-(161+Q,70+Q),3
  670. 3355  LINE-(161,95),3
  671. 3360  FOR M=1 TO 125:NEXT M
  672. 3365  NEXT Q
  673. 3370  LINE(187,70)-(170,82),3
  674. 3375  LINE-(160,95),3
  675. 3380  LINE-(174,85),3
  676. 3385  LINE-(187,70),3
  677. 3390  PSET(187,71),0
  678. 3395  LINE(186,69)-(160,95),0
  679. 3400  FOR Q=0 TO 12
  680. 3405  LINE(186,70)-(174+Q,83+Q),1
  681. 3410  LINE-(161,95),1
  682. 3415  LINE(186,70)-(174+Q,82+Q),1
  683. 3420  LINE-(161,95),1
  684. 3425  LINE(186,70)-(174+Q,82+Q)
  685. 3430  LINE-(161,95)
  686. 3435  LINE(186,70)-(174+Q,81+Q)
  687. 3440  LINE-(161,95)
  688. 3445  LINE(186,69)-(160,95),0
  689. 3450  FOR M=1 TO 125:NEXT M
  690. 3455  NEXT Q
  691. 3460  LINE(186,69)-(186,95),1
  692. 3465  LINE-(161,95),1
  693. 3470  FOR K=1 TO 500:NEXT K
  694. 3475  FOR Q=0 TO 13
  695. 3480  LINE(133,70)-(160-Q,70+Q),0
  696. 3485  LINE-(160,95),0
  697. 3490  LINE(133,70)-(160-Q,70+Q),3
  698. 3495  LINE-(160,95),3
  699. 3500  FOR M=1 TO 125:NEXT M
  700. 3505  NEXT Q
  701. 3510  LINE(133,70)-(150,82),3
  702. 3515  LINE-(160,95),3
  703. 3520  LINE-(146,85),3
  704. 3525  LINE-(133,70),3
  705. 3530  LINE(134,69)-(160,95),0
  706. 3535  PSET(133,71),0
  707. 3540  FOR Q=0 TO 12
  708. 3545  LINE(134,70)-(146-Q,83+Q),1
  709. 3550  LINE-(159,95),1
  710. 3555  LINE(134,70)-(146-Q,82+Q),1
  711. 3560  LINE-(159,95),1
  712. 3565  LINE(134,70)-(146-Q,82+Q)
  713. 3570  LINE-(159,95)
  714. 3575  LINE(134,70)-(146-Q,81+Q)
  715. 3580  LINE-(159,95)
  716. 3585  LINE(134,69)-(160,95),0
  717. 3590  FOR M=1 TO 125:NEXT M
  718. 3595  NEXT Q
  719. 3600  LINE(134,69)-(134,95),1
  720. 3605  LINE-(159,95),1
  721. 3610  FOR K=1 TO 1500:NEXT K
  722. 3615  LINE(134,69)-(134,95)
  723. 3620  LINE-(159,95)
  724. 3625  LINE(186,69)-(186,95)
  725. 3630  LINE-(161,95)
  726. 3635  PSET(133,70),0:PSET(134,69),0:PSET(187,70),0:PSET(186,69),0
  727. 3640  GOSUB 30000       '*** Textpad ***
  728. 3645  PRINT FNCEN$("To see those tucks again, press <R>.",40)
  729. 3650  FOR K=1 TO 1000:NEXT K
  730. 3655  PRINT FNCEN$("To continue, press <C>.",40)
  731. 3660  A$=INKEY$:IF A$="" GOTO 3660
  732. 3665  IF A$="r" OR A$="R" GOTO 3680
  733. 3670  IF A$="c" OR A$="C" GOTO 3735
  734. 3675  GOTO 3640
  735. 3680  GOSUB 30000   '** Textpad **
  736. 3685  PRINT FNCEN$("* Review *",40)
  737. 3690  FOR K=1 TO 250:NEXT K
  738. 3695  FOR A=0 TO 20
  739. 3700  OUT 66,A:OUT 66,A
  740. 3705  OUT 97,(INP(97) OR 3)
  741. 3710  NEXT A
  742. 3715  SOUND 37,0
  743. 3720  LINE(133,70)-(187,70),0
  744. 3725  LINE(160,70)-(160,95),0
  745. 3730  GOTO 3095
  746. 3735  GOSUB 30000       '*** Textpad ***
  747. 3740  PRINT FNCEN$("We repeat those tucks on the back side.",40)
  748. 3745  FOR K=1 TO 1500:NEXT K
  749. 3750  GOSUB 30000       '*** Textpad ***
  750. 3755  PRINT FNCEN$("Go ahead.  I'll wait.",40)
  751. 3760  FOR K=1 TO 1500:NEXT K
  752. 3765  GOSUB 30000   '*** Textpad ***
  753. 3770  PRINT FNCEN$("Press <C> to continue.",40)
  754. 3775  A$=INKEY$:IF A$="" GOTO 3775
  755. 3780  IF A$="C" OR A$="c" GOTO 3790
  756. 3785  GOTO 3765
  757. 3790  GOSUB 30000       '*** Textpad ***
  758. 3795  PRINT FNCEN$("Next, we fold and backfold this corner",40)
  759. 3800  FOR K=1 TO 1500:NEXT K
  760. 3805  FOR K=1 TO 15
  761. 3810  PSET(160,40):DRAW"E5L4U7L2D7L4F5"
  762. 3815  PAINT(160,34),3
  763. 3820  FOR M=1 TO 25:NEXT M
  764. 3825  CIRCLE(160,34),7,0
  765. 3830  PAINT(160,34),0
  766. 3835  NEXT K
  767. 3840                              '***end arrow down ***
  768. 3845  FOR K=1 TO 750:NEXT K
  769. 3850  GOSUB 30000       '*** Textpad ***
  770. 3855  PRINT FNCEN$("down to this point",40)
  771. 3860  FOR K=1 TO 750:NEXT K
  772. 3865                               '*** flashdot ***
  773. 3870  FOR K=1 TO 15
  774. 3875  CIRCLE(160,95),5,0
  775. 3880  LINE(158,95)-(162,95),0
  776. 3885  LINE(160,93)-(160,97),0
  777. 3890  FOR M=1 TO 25:NEXT M
  778. 3895  CIRCLE(160,95),5,3
  779. 3900  LINE(158,95)-(162,95),3
  780. 3905  LINE(160,93)-(160,97),3
  781. 3910  NEXT K
  782. 3915  CIRCLE(160,95),5,3
  783. 3920  PSET(160,95),3
  784. 3925  PSET(157,92),0:PSET(163,92),0
  785. 3930  PSET(157,98),0:PSET(163,98),0
  786. 3935  LINE(160,95)-(160,110),0
  787. 3940  FOR K=1 TO 250:NEXT K
  788. 3945  GOSUB 30000       '*** Textpad ***
  789. 3950  PRINT FNCEN$("across this line",40)
  790. 3955  FOR K=1 TO 750:NEXT K
  791. 3960  FOR H=134 TO 186 STEP 2
  792. 3965  PSET(H,70),0
  793. 3970  NEXT H
  794. 3975  FOR K=1 TO 250:NEXT K
  795. 3980  GOSUB 30000      '*** Textpad ***
  796. 3985  PRINT FNCEN$("SO!",40)
  797. 3990  FOR K=1 TO 750:NEXT K
  798. 3995  LINE(139,64)-(135,68),0
  799. 4000  LINE(181,64)-(185,68),0
  800. 4005  FOR V=45 TO 70
  801. 4010  LINE(134,70)-(160,V),0
  802. 4015  LINE-(186,70),0
  803. 4020  LINE(154,50)-(140,63),0
  804. 4025  LINE(166,50)-(180,63),0
  805. 4030  FOR M=1 TO 25:NEXT M
  806. 4035  NEXT V
  807. 4040  FOR V= 70 TO 95
  808. 4045  LINE(134,70)-(160,V),0
  809. 4050  LINE-(186,70),0
  810. 4055  LINE(134,70)-(160,V),3
  811. 4060  LINE-(186,70),3
  812. 4065  FOR M=1 TO 25:NEXT M
  813. 4070  NEXT V
  814. 4075  LINE(134,70)-(160,95),0
  815. 4080  LINE-(186,70),0
  816. 4085  FOR K=1 TO 750:NEXT K
  817. 4090  GOSUB 30000       '*** Textpad ***
  818. 4095  PRINT FNCEN$("and back we go up again!",40)
  819. 4100  FOR K=1 TO 750:NEXT K
  820. 4105  FOR V=94 TO 70 STEP -1
  821. 4110  LINE(134,70)-(160,V),0
  822. 4115  LINE-(186,70),0
  823. 4120  LINE(134,70)-(160,V),3
  824. 4125  LINE-(186,70),3
  825. 4130  LINE(134,70)-(160,95),0
  826. 4135  LINE-(186,70),0
  827. 4140  FOR M=1 TO 25:NEXT M
  828. 4145  NEXT V
  829. 4150  FOR V=70 TO 45 STEP -1
  830. 4155  LINE(134,70)-(160,V)
  831. 4160  LINE-(186,70)
  832. 4165  FOR H=134 TO 186 STEP 2
  833. 4170  PSET(H,70),0
  834. 4175  NEXT H
  835. 4180  NEXT V
  836. 4185  GOSUB 30000       '*** Textpad ***
  837. 4190  PRINT FNCEN$("Your turn to fold and backfold.",40)
  838. 4195  FOR K=1 TO 1500:NEXT K
  839. 4200  PRINT FNCEN$("Press <C> to continue.",40)
  840. 4205  A$=INKEY$:IF A$="" GOTO 4205
  841. 4210  IF A$="c" OR A$="C" GOTO 4220
  842. 4215  GOTO 4185
  843. 4220  GOSUB 30000       '*** Textpad ***
  844. 4225  PRINT FNCEN$("We repeat with this corner.",40)
  845. 4230  FOR K=1 TO 750:NEXT K
  846. 4235                              '*** arrow up ***
  847. 4240  FOR K=1 TO 15
  848. 4245  PSET(160,153):DRAW"G5R4D7R2U7R4H5"
  849. 4250  PAINT(160,159)
  850. 4255  FOR M=1 TO 25:NEXT M
  851. 4260  CIRCLE(160,159),7,0
  852. 4265  PAINT(160,159),0
  853. 4270  NEXT K
  854. 4275  FOR K=1 TO 750:NEXT K
  855. 4280  FOR H=134 TO 186 STEP 2
  856. 4285  PSET(H,120),0
  857. 4290  NEXT H
  858. 4295  FOR K=1 TO 750:NEXT K
  859. 4300  GOSUB 30000       '*** Textpad ***
  860. 4305  PRINT FNCEN$("SO!",40)
  861. 4310  FOR K=1 TO 750:NEXT K
  862. 4315  FOR V= 145 TO 120 STEP -1
  863. 4320  LINE(134,120)-(160,V),0
  864. 4325  LINE-(186,120),0
  865. 4330  LINE(134,121)-(154,140),0
  866. 4335  LINE(186,121)-(166,140),0
  867. 4340  FOR M=1 TO 25:NEXT M
  868. 4345  NEXT V
  869. 4350  FOR V=120 TO 95 STEP -1
  870. 4355  LINE(134,120)-(160,V),0
  871. 4360  LINE-(186,120),0
  872. 4365  LINE(134,120)-(160,V),3
  873. 4370  LINE-(186,120),3
  874. 4375  FOR M=1 TO 25:NEXT M
  875. 4380  PSET(160,V),0
  876. 4385  LINE(134,119)-(160,95),0
  877. 4390  LINE-(186,119),0
  878. 4395  NEXT V
  879. 4400  FOR K=1 TO 750:NEXT K
  880. 4405  GOSUB 30000       '*** Textpad ***
  881. 4410  PRINT FNCEN$("and back down again!",40)
  882. 4415  FOR K=1 TO 750:NEXT K
  883. 4420  FOR V=95 TO 145
  884. 4425  LINE(134,120)-(160,V),0
  885. 4430  LINE-(186,120),0
  886. 4435  LINE(134,120)-(160,V),3
  887. 4440  LINE-(186,120),3
  888. 4445  LINE(134,119)-(160,95),0
  889. 4450  LINE-(186,119),0
  890. 4455  PSET(160,V),0
  891. 4460  FOR H=134 TO 186 STEP 2
  892. 4465  PSET(H,121),0
  893. 4470  NEXT H
  894. 4475  NEXT V
  895. 4480  FOR K=1 TO 750:NEXT K
  896. 4485  GOSUB 30000   '*** Textpad ***
  897. 4490  PRINT FNCEN$("Press <C> to continue.",40)
  898. 4495  A$=INKEY$:IF A$="" GOTO 4495
  899. 4500  GOSUB 30000       '*** Textpad ***
  900. 4505  IF A$="C" OR A$="c" GOTO 4515
  901. 4510  GOTO 4485
  902. 4515  GOSUB 30000   '** Textpad **
  903. 4520  PRINT FNCEN$("You'll find a little hole here",40)
  904. 4525  FOR K=1 TO 750:NEXT K
  905. 4530  FOR K=1 TO 15
  906. 4535  PSET(160,153):DRAW"G5R4D7R2U7R4H5"
  907. 4540  PAINT(160,159)
  908. 4545  FOR M=1 TO 25:NEXT M
  909. 4550  CIRCLE(160,159),7,0
  910. 4555  PAINT(160,159),0
  911. 4560  NEXT K
  912. 4565  FOR K=1 TO 750:NEXT K
  913. 4570  PRINT FNCEN$("that you'll be blowing air into",40)
  914. 4575  FOR K=1 TO 1500:NEXT K
  915. 4580  PRINT FNCEN$("to inflate BALLOON.",40)
  916. 4585  FOR K=1 TO 1500:NEXT K
  917. 4590  GOSUB 30000       '*** Textpad ***
  918. 4595  PRINT FNCEN$("But first, I'll show you",40)
  919. 4600  FOR K=1 TO 1500:NEXT K
  920. 4605  PRINT FNCEN$("how to hold BALLOON",40)
  921. 4610  FOR K=1 TO 1500:NEXT K
  922. 4615  PRINT FNCEN$("as you blow.",40)
  923. 4620  FOR K=1 TO 1500:NEXT K
  924. 4625  GOSUB 30000       '*** Textpad ***
  925. 4630  PRINT FNCEN$("One moment, please.",40)
  926. 4635  FOR K=1 TO 750:NEXT K
  927. 4640                           '***Zapsound***
  928. 4645  FOR A=0 TO 20
  929. 4650  OUT 66,A:OUT 66,A
  930. 4655  OUT 97,(INP(97) OR 3)
  931. 4660  NEXT A
  932. 4665  SOUND 37,0
  933. 4670  CLS
  934. 4675  FOR K=1 TO 250:NEXT K
  935. 4680                            '***End Zapsound***
  936. 4685  LINE(160,95)-(120,105)
  937. 4690  LINE-(160,100)
  938. 4695  LINE-(200,105)
  939. 4700  LINE-(120,85)
  940. 4705  LINE-(160,90)
  941. 4710  LINE-(200,85)
  942. 4715  LINE-(160,95)
  943. 4720  PAINT(160,92),3
  944. 4725  PAINT(160,97),3
  945. 4730  LINE(120,85)-(160,92),0
  946. 4735  LINE-(200,85),0
  947. 4740  LINE(120,105)-(160,98),0
  948. 4745  LINE-(200,105),0
  949. 4750  CIRCLE(160,95),3,0
  950. 4755  PAINT(160,95),0
  951. 4760  FOR K=1 TO 250:NEXT K
  952. 4765  GOSUB 30000       '*** Textpad ***
  953. 4770  PRINT FNCEN$("Here's the hole you'll be blowing into.",40)
  954. 4775  FOR K=1 TO 750:NEXT K
  955. 4780  FOR K=1 TO 15
  956. 4785  CIRCLE(160,95),3,3
  957. 4790  PAINT(160,95),3
  958. 4795  FOR M=1 TO 25:NEXT M
  959. 4800  CIRCLE(160,95),3,0
  960. 4805  PAINT(160,95),0
  961. 4810  NEXT K
  962. 4815  GOSUB 30000       '*** Textpad ***
  963. 4820  PRINT FNCEN$("And here's the way to hold BALLOON.",40)
  964. 4825  FOR K=1 TO 1500:NEXT K
  965. 4830  GOSUB 30000       '*** Textpad ***
  966. 4835  PRINT FNCEN$("Your thumbs go here,",40)
  967. 4840  FOR K=1 TO 500:NEXT K
  968. 4845                              '*** arrow up ***
  969. 4850  PSET(130,110):DRAW"G5R4D7R2U7R4H5"
  970. 4855  PAINT(130,116)
  971. 4860  PSET(190,110):DRAW"G5R4D7R2U7R4H5"
  972. 4865  PAINT(190,116)
  973. 4870  FOR K=1 TO 1500:NEXT K
  974. 4875  CIRCLE(130,116),7,0
  975. 4880  PAINT(130,116),0
  976. 4885  CIRCLE(190,116),7,0
  977. 4890  PAINT(190,116),0
  978. 4895                              '***end arrow up ***
  979. 4900  FOR K=1 TO 250:NEXT K
  980. 4905  GOSUB 30000       '*** Textpad ***
  981. 4910  PRINT FNCEN$("your pointers go here,",40)
  982. 4915  FOR K=1 TO 500:NEXT K
  983. 4920  PSET(205,95):DRAW"E5D4R7D2L7D4H5"
  984. 4925  PAINT(211,95)
  985. 4930  PSET(115,95):DRAW"H5D4L7D2R7D4E5"
  986. 4935  PAINT(109,95)
  987. 4940  FOR K=1 TO 1500:NEXT K
  988. 4945  CIRCLE(109,95),7,0
  989. 4950  PAINT(109,95),0
  990. 4955  CIRCLE(211,95),7,0
  991. 4960  PAINT(211,95),0
  992. 4965  FOR K=1 TO 250:NEXT K
  993. 4970  GOSUB 30000       '*** Textpad ***
  994. 4975  PRINT FNCEN$("and your middle fingers go here.",40)
  995. 4980  FOR K=1 TO 500:NEXT K
  996. 4985  PSET(130,80):DRAW"E5L4U7L2D7L4F5"
  997. 4990  PAINT(130,74)
  998. 4995  PSET(190,80):DRAW"E5L4U7L2D7L4F5"
  999. 5000  PAINT(190,74)
  1000. 5005  FOR K=1 TO 1500:NEXT K
  1001. 5010  CIRCLE(190,74),7,0
  1002. 5015  PAINT(190,74),0
  1003. 5020  CIRCLE(130,74),7,0
  1004. 5025  PAINT(130,74),0
  1005. 5030  FOR K=1 TO 250:NEXT K
  1006. 5035  GOSUB 30000       '*** Textpad ***
  1007. 5040  PRINT FNCEN$("Want those instructions repeated?",40)
  1008. 5045  FOR K=1 TO 1000:NEXT K
  1009. 5050  PRINT FNCEN$("If so, press <R>.",40)
  1010. 5055  FOR K=1 TO 1000:NEXT K
  1011. 5060  PRINT FNCEN$("To continue, press <C>.",40)
  1012. 5065  A$=INKEY$:IF A$="" GOTO 5065
  1013. 5070  IF A$="r" OR A$="R" GOTO 5085
  1014. 5075  IF A$="c" OR A$="C" GOTO 5130
  1015. 5080  GOTO 5035
  1016. 5085  GOSUB 30000   '** Textpad **
  1017. 5090  PRINT FNCEN$("* Review *",40)
  1018. 5095  FOR K=1 TO 250:NEXT K
  1019. 5100  FOR A=0 TO 20
  1020. 5105  OUT 66,A:OUT 66,A
  1021. 5110  OUT 97,(INP(97) OR 3)
  1022. 5115  NEXT A
  1023. 5120  SOUND 37,0
  1024. 5125  GOTO 4765
  1025. 5130  GOSUB 30000       '*** Textpad ***
  1026. 5135  PRINT FNCEN$("BLOW!",40)
  1027. 5140  FOR K=1 TO 750:NEXT K
  1028. 5145                           '***Zapsound***
  1029. 5150  FOR A=0 TO 20
  1030. 5155  OUT 66,A:OUT 66,A
  1031. 5160  OUT 97,(INP(97) OR 3)
  1032. 5165  NEXT A
  1033. 5170  SOUND 37,0
  1034. 5175  CLS
  1035. 5180  FOR K=1 TO 250:NEXT K
  1036. 5185                              '***End Zapsound***
  1037. 5190  LINE(120,135)-(120,60)
  1038. 5195  LINE-(140,45)
  1039. 5200  LINE-(220,45)
  1040. 5205  LINE-(220,115)
  1041. 5210  LINE-(200,135)
  1042. 5215  LINE-(120,135)
  1043. 5220  PAINT(160,98),3
  1044. 5225  CIRCLE(160,98),3,0
  1045. 5230  PAINT(160,98),0
  1046. 5235  LINE(120,60)-(200,60),0
  1047. 5240  LINE-(200,135),0
  1048. 5245  LINE-(120,60),0
  1049. 5250  LINE-(220,45),0
  1050. 5255  LINE-(200,60),0
  1051. 5260  LINE-(120,135),0
  1052. 5265  LINE(140,45)-(200,60),0
  1053. 5270  LINE(159,60)-(159,140),0
  1054. 5275  LINE(161,60)-(161,140),0
  1055. 5280  LINE(120,98)-(200,98),0
  1056. 5285  LINE-(220,78),0
  1057. 5290  FOR K=1 TO 750:NEXT K
  1058. 5295  GOSUB 30000       '*** Textpad ***
  1059. 5300  PRINT FNCEN$("Mission accomplished!",40)
  1060. 5305  FOR K=1 TO 1500:NEXT K
  1061. 5310  GOSUB 30000                '*** Textpad ***
  1062. 5315  PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
  1063. 5320  PRINT FNCEN$("   <2> - To repeat BALLOON.",40)
  1064. 5325  PRINT FNCEN$("      <3> - To exit from program.",40)
  1065. 5330  E$=INPUT$(1)
  1066. 5335  IF E$<"1" OR E$>"3" GOTO 5330
  1067. 5340  SEL=VAL(E$)
  1068. 5345  COMMON SEL
  1069. 5350  CLS
  1070. 5355  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  1071. 5356  LINE(70,75)-(250,125),3,B
  1072. 5360  ON SEL GOTO 5365,5370,5375
  1073. 5365  CHAIN"a:main"
  1074. 5370  CHAIN"a:balloon"
  1075. 5375  CHAIN"a:end"
  1076. 30000  LOCATE 1,1
  1077. 30010  PRINT"                                                                                                                        "
  1078. 30020  LOCATE 1,1:RETURN
  1079.